function Frames()
	for i = 1, 7 do
		getglobal("ChatFrame"..i).ChatTimestamp_Original_AddMessage = getglobal("ChatFrame"..i).AddMessage;
		getglobal("ChatFrame"..i).AddMessage = Time;
	end
end

function Time(this, msg, r, g, b, id)
	if(not msg) then msg = ""; end
	local hour=date("%H");
	local minute=date("%M");
	local newmsg = format("[%02d:%02d] %s",hour, minute, msg);
	this:ChatTimestamp_Original_AddMessage(newmsg, r, g, b, id);
end


